home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / ls recipes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  200 lines
  1. 3 poke56,56:clr
  2. 5 dv=peek(186):ifdv<8thendv=8
  3. 9 goto50
  4. 10 printtp$
  5. 11 printcv$:forii=0to15:printcx$:next:printcw$:return
  6. 12 poke214,19:print:print"  [195][210][211][210]-[213][208]/[196][207][215][206][159]-[205]ove arrow up or down"
  7. 13 print" [211][208][193][195][197][159]-[211]elect file  [193][159]-[212]oggle all files"
  8. 14 print"       [210][197][212][213][210][206][159]-[214]iew/[208]rint   [208][159]-[208]age
  9. 15 [153]"  str$open-str$irectory    (NULL)open-(NULL)ew disk    (NULL)open-(NULL)uit"
  10. 16 [142]
  11. 20 [153]""[163]28)"print(NULL)age"p[170]1"printof"pp[170]1"list"
  12. 21 [139]p[178]pp[167][129]ii[178]p[172]16[170]1[164]j:[137]23
  13. 22 [129]ii[178]p[172]16[170]1[164](p[170]1)[172]16
  14. 23 [151]199,pc%(ii):[153][163]13)[201](td$(ii),[195](td$(ii))[171]2)
  15. 24 [130]:[142]
  16. 25 [129]ii[178]17[164]2[169][171]1
  17. 26 [151]214,ii:[153]:[153][163]9)cl$:[130]
  18. 27 [142]
  19. 30 [129]ii[178]22[164]24:[151]781,ii:[158]59903:[130]
  20. 31 [151]214,21:[153]:[153]"     (NULL)(NULL)atnlenvalopen- next selected recipe
  21. 32 print" [206][159] - next recipe on menu   [198]1[159] - [208]rint
  22. 34 [153]"     atnopen - atnbbreviations   (NULL)open - (NULL)enu"
  23. 35 [142]
  24. 40 [129]ii[178]22[164]24:[151]781,ii:[158]59903:[130]
  25. 41 [151]214,20:[153]:[153]"def (NULL)urn your printer on and press (NULL)(NULL)atnlenvaldef!"
  26. 42 [153]"   (NULL)r press (NULL)def to return to the menu."
  27. 43 [142]
  28. 50 [151]53281,0:[151]53280,0:[153]"loadopen"
  29. 51 [141]660:[143] disk drive check
  30. 52 [158]57812"recipes font",dv,0:[151]780,0:[151]781,0:[151]782,56:[158]65493
  31. 53 [151]53272,31
  32. 54 [141]1145
  33. 55 [158]57812"ss 1990",dv,0:[151]780,0:[151]781,60:[151]782,3:[158]65493
  34. 57 [158]57812"readfile.o",dv,0:[151]780,0:[151]781,167:[151]782,2:[158]65493
  35. 60 [158]57812"print/cat/dir",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  36. 65 d[178]0:u[178]0:i[178]0:j[178]0:k[178]0:m[178]0:p[178]0:pp[178]0:q[178]0:t[178]0:u[178]0:ii[178]0
  37. 66 dv[178][194](186):[139]dv[179]8[167]dv[178]8
  38. 67 q$[178][199](34)
  39. 70 [134] td$(145),pc%(145)
  40. 72 tp$[178]"loaddef    (NULL) (NULL)closeatnclosestr$close(NULL)close(NULL)closeatnclose(NULL)close  (NULL) valcloselencloseright$close(NULL) valclose(NULL)"
  41. 73 cv$[178]"   sysortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  42. 74 cw$[178]"   sys/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  43. 75 cx$[178]"   sys(NULL)                               sys(NULL)"
  44. 76 cl$[178]"                      ":[137]82
  45. 80 [129]z[178]1[164]j:td$(z)[178]"":pc%(z)[178]0:[130]
  46. 81 b[178]0:d[178]0:f[178]0:g[178]0:p[178]0:r[178]0:s[178]0:u[178]0:v[178]0:h[178]0:m[178]0
  47. 82 [153]tp$:[141]635
  48. 85 [153]"open  right$nsert the disk with the recipe openfiles"
  49. 90 [153][163]12)"and press (NULL)(NULL)atnlenvalopen."
  50. 95 [161]a$:[139]a$[179][177]" "[167]95
  51. 100 [153]"open (NULL)electing all recipeopen files on this disk"
  52. 102 i[178]0:[158]49664,"$r.*",dv
  53. 103 [139]st[179][177]64[167][132]3,a,td$(i),a$:i[178]i[170]1:[158]49667:[137]103
  54. 105 td$(i[171]1)[178][199](0)[170][199](0)[170][199](0)
  55. 110 [153]tp$
  56. 120 j[178]i[171]1
  57. 140 [139]j[178]1[167][153]"open (NULL)here are no recipe files on this disk."
  58. 145 [139]j[178]1[167][141]605:[141]1215:[137]82
  59. 200 pp[178][181](j[173]16)[171](j[173]16[179][177][181](j[173]16))[171]1
  60. 210 p[178]0
  61. 220 [141]10
  62. 225 [141]25:[141]12:[141]20:k[178]1
  63. 230 [151]214,k[170]1:[153]:[153][163]10)"printtan>on":[151]198,0
  64. 235 [161]a$:[139]a$[178]""[167]235
  65. 240 [139]a$[179][177]"on"[167]250
  66. 242 [153][163]10)"print  on"
  67. 245 k[178]k[171]1:[139]p[178]pp[167][139]k[179]1[167]k[178]j[171]p[172]16[171]1:[137]230
  68. 246 [139]k[179]1[167]k[178]16
  69. 247 [137]230
  70. 250 [139]a$[179][177]""[167]260
  71. 252 [153][163]10)"print  on"
  72. 255 k[178]k[170]1:[139]p[178]pp[167][139]k[177]j[171]p[172]16[171]1[167]k[178]1:[137]230
  73. 256 [139]k[177]16[167]k[178]1
  74. 257 [137]230
  75. 260 [139]a$[179][177]"p"[167]275
  76. 265 p[178]p[170]1:[139]p[177]pp[167]p[178]0
  77. 267 [137]225
  78. 275 [139]a$[179][177]"d"[175]a$[179][177]"str$"[167]285
  79. 280 [158]828,1:[137]515
  80. 285 [139]a$[179][177]"q"[175]a$[179][177]"(NULL)"[167]300
  81. 290 [141]1215:[137]230
  82. 300 [139]a$[178][199](13)[167]350
  83. 302 [139]a$[178]"n"[176]a$[178]"(NULL)"[167][141]635:[137]80
  84. 305 [139]a$[179][177]"a"[175]a$[179][177]"atn"[167]330
  85. 307 [129]i[178]1[164]j:pc%(i)[178]1[171]pc%(i):[130]
  86. 309 [141]20:[137]230
  87. 330 [139]a$[178]" "[167]pc%(p[172]16[170]k)[178]1[171]pc%(p[172]16[170]k):[141]20:[137]230
  88. 340 [137]230
  89. 350 q[178]0:[129]i[178]1[164]j
  90. 352 [139]q[178]0[167][139]pc%(i)[178]0[167]380
  91. 358 [153]"loadlist"
  92. 360 [151]698,dv:[158]679,td$(i):pc%(i)[178]0:q[178]0
  93. 362 [141]30:[151]198,0
  94. 370 [161]a$:[139]a$[178]""[167]370
  95. 372 [139]a$[178]" "[167]380
  96. 374 [139]a$[178]"a"[167][158]828,4:[141]1300:[158]831,4:[137]370
  97. 376 [139]a$[178]"n"[167]q[178]1:[137]380
  98. 378 [139]a$[178][199](133)[167][141]390
  99. 379 [139]a$[178]"m"[167]220
  100. 380 [130]:[137]210
  101. 390 [159]4,4:[152]4:[160]4:[139]st[178]0[167]398
  102. 392 [158]828,6:[141]40:[151]198,0
  103. 394 [161]a$:[139]a$[178]""[167]394
  104. 395 [139]a$[178]"m"[167][142]
  105. 396 [158]831,6:[137]390
  106. 398 [158]49152,0,0,39,20,7,0,0:[142]
  107. 500 :
  108. 505 :   direc[164]ry
  109. 510 :
  110. 515 [153]"load"
  111. 520 [153]"   (NULL)left$right$asc(NULL) openwill pause the scrolling."
  112. 530 [129]tq[178]1[164]500:[130]
  113. 535 [151]50193,dv:[158]50176
  114. 575 [153]"open    (NULL)ress (NULL)(NULL)atnlenvalopen to return to program"
  115. 580 [161]a$:[139]a$[179][177]" "[167]580
  116. 585 [158]831,1:[151]198,0:[137]230
  117. 590 :
  118. 595 :buzzer sound
  119. 600 :
  120. 605 [129]z[178]54272[164]54296:[151]z,0:[130]
  121. 610 w[178]54272:[151]w[170]6,240:[151]w,10:[151]w[170]1,40:[151]w[170]4,33
  122. 615 [129]j[178]1[164]10:[151]54296,15:[129]t[178]1[164]5:[130]:[151]54296,0:[129]t[178]1[164]5:[130]:[130]
  123. 620 [151]w[170]4,128
  124. 625 [142]
  125. 629 :
  126. 630 :bell sound
  127. 631 :
  128. 635 [129]z[178]54272[164]54296:[151]z,0:[130]
  129. 640 w[178]54272:[151]w[170]1,135:[151]w[170]5,9:[151]w[170]6,9:[151]w[170]24,15:[151]w[170]4,17:[151]w[170]4,16
  130. 645 [129]t[178]1[164]800:[130]:[129]z[178]54272[164]54296:[151]z,0:[130]
  131. 650 [142]
  132. 655 :
  133. 660 [159]15,dv,15:[160]15
  134. 665 [139]st[178]0[167][142]
  135. 670 [153]"load(NULL)urn your disk drive on!!
  136. 675 print"[208]ress any key to try again."
  137. 680 geta$:ifa$=""then680
  138. 685 return
  139. 690 open15,dv,15:input#15,er,er$:close15
  140. 695 ifer=0thenreturn
  141. 700 gosub605:print"[147][196]isk drive error!!!!!"
  142. 705 print"[212]he error message is:":print:printer,er$
  143. 710 print"[208]ress any key to try again."
  144. 715 geta$:ifa$=""then715
  145. 720 open15,dv,15,"i0":close15
  146. 725 return
  147. 1145 print"[147]":poke214,4:print:au$="[204][207][193][196][211][212][193][210] [210][197][195][201][208][197][211]"
  148. 1150 printspc(20-len(au$)/2)au$
  149. 1155 au$="[193] [208]rogram for the [199]ourmet [197]nthusiast":printspc(20-len(au$)/2)"[159]"au$
  150. 1160 poke53280,0:poke53281,0
  151. 1165 poke214,10:print"[145]";
  152. 1170 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  153. 1175 print""
  154. 1180 fori=217to242:pokei,peek(i)or128:next
  155. 1185 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  156. 1190 fori=1to7:printtab(4)"[155]                                [151][223]":next
  157. 1195 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
  158. 1200 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  159. 1201 poke214,14:print"[145][155]";
  160. 1202 fori=1to5:readau$:gosub1203:next:return
  161. 1203 printspc(20-len(au$)/2)""au$:au$="":return
  162. 1206 data"[204][207][193][196][211][212][193][210][160][210][197][195][201][208][197][211]","by [202]ames [202]ones & [198]ender [212]ucker"
  163. 1207 data"[214]1 [208]ublished on [204][207][193][196][211][212][193][210] #85","[211]ubscriptions 1-800-831-2694"
  164. 1208 data"[195]opyright ([195]) 1991 [211]oftdisk"
  165. 1215 sys828,2
  166. 1222 poke214,11:print:print